بسو الله الرحمن الرحيه 


وټل ربي زدڼي لما 


حدق الله )لعظيه 


كاتب الموضوع: احمد زكريا صالح (ء z‏ مإ طھa)‏ 
الايميلJ‏ : ahmedzs @ live.ca‏ 
موقعي: WWW.4ZSS06).C0.‏ 


أالسلأء غليكه ور حمة )ل وبر کاټه 


المقدمه: 
ان اطيل عليكم بالمقدمة 
في هذا الدرس سنتعلم كيفية عمل تحديث لبرامجنا بأفضل وأسهل الطرق 
منختوياث الزشو 


1) عمل موقع مجاني 
2 شرح طريقه تحديث البرنامج 
3) تحميل مثال علي التحديث (مشروح بالتفصيل) 


a aa a a aR E ES ت‎ a ت‎ aaa a EERE REEF E ڻڌ‎ 


eras a55 Lai 


یره رتا ت یج که 


e EET | 


(1)عمل موقع مجانی 


سوف اشرح بالتفصيل كيف تعمل موقع مجاني في افضل موقع استضافة مجانية 


على الانترنت 
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من حيث السرعة و والاستمرارية و عدم المشاكل 


حيث انني جربت جميع مواقع الاستضافة المجانية 


ملاحظة: إن كان لديك موقع الكتروني يمكنك تخطي هذه الخطوة 


50Webs 


صراحتا وبلا مبالغة أفضل موقع للاستضافة المجانية 


ه لا يوجد به أي اعلانات 


٠‏ يعطيك 50 اص كمساحة 


e‏ به خاصية استخدام الدومين حيث انك لو عندك دومين ممكن تستخدمة لموقعك 


HOME WEB HOSTING RESELLER HOSTING DOMAIN NAMES SIGNUP SUPPORT FORUM CONTACT US ABOUT US E3 MEMBERS LOGIN 


3 Domain Names SON yr 


| . [rom ا‎ SEARCH | 


Please types only he domain name you weh t0 search far, 
that the TLE 

Pepular TLDS? com, «met, coFgqy, info, biz, sus, co.uk, imme, 
Cay, E, nebî, hey she, TE nly rR, co.mE, «nane, 

CC, dws, be, org.uk, me.uk, a, ml, Aa, metne, 

O FG-FRE, CN, sOoO.CN, metic, OF EN, COMI, 

come, sarge, ihr. bar 


9 Latest News 


New Script Installation Tool - Elefante Toolbar - 
Intrûduced 

Friday, November Z1, Z008 

AOVWWebs is pleased to inform all Its customers 
that a new tool 15 avallablê - Elefante Toolbar - 
in the Web Hosting Control Panels File 


Mananar Haman Manarnpr anl Suihdleamain 


www.5O0webs.com 


S0Webscom TILE one 


We offer great hosting for لل‎ 6 yl 1500 MB Disk space 
your websites! . ب‎ IF 40 GB Traffic 


5 Domains Hosted 
Now with Elefante Installer CÊ 
and Marketing Tools! E : 7 00 


| MONTH 4 


You can host up to five domain names In the An automated scripts Installer and the Elefante 
Webmaster hosting account. Benefit from our bonus Marketing Tools will also be quite useful. All for as 
and register a domain name for free at any time! low as $5 a month! Take the tour! 


È_AHvEDzs #7 E 
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ج 


EEIEETITETEPITIE} HEE ITPEITEHIIPIITPHEEETIFTIPEPHEEIEITEIIYTIEY [EPLPETEEITDTTETIY 


PIPE ESETITEPHEEIEITELIITRFEY FE 


me 


SEEEIEEISEIDISTTTPPETHTEY EEE ETIEIEITY 


اتبع الخطوات التالية لتسجيل بالموقع 
م٧‏ ہوS1‏ في الصفحة الرئيسة اضغط 


j AHMEDZS HOSTING DOMAIN NAMES Eî SUPPORT FORUM CONTACTUS ABOUTUS Ê MEMBERS LOGIN 


BEST YALUE 


220 MB Uisk space 300 MB Disk space 4000 MB Uisk space Totally FREE - NO ADS 
10 GB Bandwidth 20 GB Bandwidth 2 GB Bandwidth 60 MB Free Hosting 
1 Domain hosted 2# Domains hosted umains hosted 1 Free E-mall Address 


lite builder 1 Free FTP Account 
عا ا‎ MYSQL, PostgreSQL Web-based File Manager 
main Name Intergrated HTML Editor 


More n» $0.00 /Imo More n 


Cal, Perl, PHP, MYSAL Website builder 
Cal, Perl, PHP 


$3.00 Imo More» $4.00 /Imo Use a subdomain 


2. Please, select if you want to regqisterftransfe 
FT Register a new domain or transfer a domain 


FF Host an existing domain 


J, you need to. log Into the Members Control Panel and add 
our SÛwebs.com domain. In the example above, mysite' is a 


3. Enter Account Information 


(NEX ») _ 


ثم املاء البيانات كما الصورة 
ملاحظة هامة جدا. الباسورد سوف يرسل لك علي الايميل 
وبعد ذلك يمنك تغيرة بعد الدخول الي لوحة الاداة 


< 


S0 Webe.eom TEIN ONEN 


کے 


HOME WEB HOSTING RESELLER HOSTING DOMAIN NAMES  SiENUP SUPPORT FORUM CONTACT US ABOUT US FR MEMBERS LOGIN 


E RE EES ENTER ACCOUNT INFORMATION TO SIGN UP FOR A FREE PLAN 


E 
E re HE SSR TE RB ك‎ Flease fIlI in your details, to sign Up for a FREE web hosting account! 


subdomain LUsermame: [ استخ المستخدم‎ 


{min 3 - max 3 chars, only a-z 0-9) 
Country: [Egypt | البلذ‎ 
First Name: اسملت الاول حح جج‎ 
Last Name: ¡ اسم العاثلة‎ 


البريد اللالكتر وني (الازم يكون صحيح) 1 E-mail:‏ 


Check firat la your email address atil actiwe? 


العنوان ٹپ ي 1 ress Line‏ 

#didress Line 2 (optional f ڪ ڪڪ‎ 

City السدينة ججج ڇم‎ 
State: 1 ITE 

کو د المتطةة حم Zip Postal Code:‏ 

walid Phone Number: رقم التليقو ن ج کحم‎ 
Fax {optional}: e mw —_ 


Use Swebs subdomain ۳ example: mysiteSwebs com توان صو فعلت‎ 


3. Enter Account Information 


Total amount to be charged: 


This Is your Security Code: 
HE Eg 
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Security Code: 


E 


Home web Hosting Reseller Hosting Liomainis SIQANUp Support Forum wantact lls اھ‎ oi 5ا‎ Meas 


ê Free Web Hosting - Directory . TH . 
ا د اسا‎ E : Resellers Panel CLICK HERE r 


E YOL UTION OF A REYOL UTION 


Legal Irformiation Û Link To 50Webs‏ ا 


EH EE 


بعد الانتهاء من الخطوات 
اذهب الي بريدك الالكتروني وافتح الرسالة الجديده التي ارسلت من s50طع٥س‏ 
وستجد فيها الباسورد 


LOGIN FOR FHEE HS ING USERS ا‎ 


ا١ الياسون د(الدو أر عسل‎ 
Wsername hy اي ڇ‎ E i-7 : 
Password sesessss 0 | 


Lost password? 


Login 


الان يمكنك تغير الباسورد الخاص بك 
اذا اردت اضنخغط ڪطkفئي)Password (Change Account‏ 


(File Nanager)يئفكڪ اضغط‎ 


mg 


Domain Registration 


Make Money! 


Help Center 
FA.Q 24/7 Support & Forum Vote For 50Webs Link To 50Webrs 


ږ 


Support us Change Account Details Change Account Password 


بعد عمل ذلك اضغط علي موقعك 


ثم اصنع مجلد جديد باسم برنامج كما في الصور 


CREATE! 
@ Empty folder O Empty file 


yÊ Folder created successfully! /ahmedz 


Current Folder: ahmedzs.5Uwebs.com j 


Harmie 


f 
Eî MyProqram ا‎ 


فا ظا ف اط 


بعد ذلك قم بصنع ملفين 


UpdateLink.txt 
ضع رابط التحديث به ويستحسن ان يكون رابط مباشر‎ 


UpdateVersion.txt 
2.1 ضع فيه رقم اصدار لبرنامج متلا‎ 
من غير اي حروف فقط ارقام‎ 


ملاحظة هامة جدا: وضع الكتابه يجب ان يكون في ءdه€‏ ارط ولیس في ٤d٣‏ 


11 
11 
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lIpdateLink. txt 
lIpdateVersion. txt 


‘1ı 


(2)شرح كيفية تحديث البرنامج(الاكواد) أم١.ط۷‏ 


ضع هذا الكود في قسم التصريحات 
:اقتباس 


Imports System.Net 


Imports System.IO 


هذا الكود لقراءة ما يوجد في الملف) ×.۸ 10ء۲ ۷6٥ج‏ لمل رقم اخر اصدار( 
:اقتباس 


Dim VersionURL AsString = "http://ahnmedzs.50webs.com/MyProgram/UpdateVersion.txt"" 


Dim Request As Http Web Request = WebRequest.Create(VersionURL) 

Dim Reader As StreamReader= New StreamReader(Request.GetResponse.GetResponseSiream()) 
Dim NewVersion AsString = Reader.ReadToEnd() 

Reader.Dispose() 


ملاحظة: البرنامج يعتمد علي اصدار البرنامج الذي موجود في 
My Project >> Application >> Assembly Information >> File Version‏ 


(Application.ProductVersion) 


وهذا لمقارنة الاصدار الموجود علي الانترنت بالاصدار الحالي لبرنامج 
:اقتباس 


If Trim(NewVersion) > Trim(Application.ProductVersion) Then 
أو الإصدار الموجود علي الانترنت اكبر من اصدار البرنامج‎ 


الكود لقراءة الملف 
UpdateLink.txt‏ 
(الموجود به رابط الاإصدار الجديد) 
:اقتباس 
Dim UpdateLink AsString = "http://ahnmedzs.50webs.com/MyProgram/UpdateLink.txt"‏ 
CheckL.Text =" "‏ 
Dim LinkRequest As Http WebRequest = WebRequest.Create(UpdateLink)‏ 
Dim LinkReader As StreamReader‏ 
NewSitreamReader(LinkRequest.GetResponse.GetResponseSt ream())‏ = 
Dim DownNewVersion AsString = LinkReader.ReadToEnd‏ 
LinkReader.Dispose()‏ 


هذا لمعرفة نوع الملف (ملف التحديث) 
Dim FileFormate AsSiring = Strings.Right(DownNewVersion, 4)‏ 


اذا لم يكن نوع الملف موجود بالرابط اجعل نوع الملف م×م 


If Strings.Left(FileFormate, 1) <> '".''"Then FileFormate = ".exe" 


هذه للعب بالامتداد حيث ان معظم مواقع التحميل لا تقبل رفع ملفات م×ه لذلك سنغير نوع الملف الي ).,٥٥(‏ مثلا 
وعند التحديث يحفظ الملف علي هيئة م×م 


If FileFormate = ".noo'" Then FileFormate = ".exe" 


تحميل الملف 
:اقتباس 
My.Computer.Network.DownloadFile(DownNewVersion, Application.StartupPath‏ 
"\NewUpdate"& NewVersion & FileFormate, '""", ''"", True, 100, True)‏ & 

فتح الملف 
:اقتباس 


System.Diagnostics.Process.Start(Application.Start upPath & '"\NewUpdate'" & 
NewVersion & FileFormate) 


3)تحميل المتال 


http ://www.mediafire.com/download.php?hnnneyz1Iro 
| 
و‎ 

http ://www.mediafire.com/download.php ?lwdtidmnzoo 


وټيي الخټاء 
أټمڼيي أن ټځونوا اسټفيدوا هن الدرس 
لا ټښسونا هن صالع د عائگه 


